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EDTSSCRELINE - erase to end of Line 18-Sep-19 4 04:39:38 VAX-11 Bliss-32 V4.0-7 
14-Sep-1984 12:24:2 DISKSVMSMASTER:CEDT.SR 
1 cute "EDTSSCRELINE = erase to end of Line’ 
§ MODULE EDTSSCRELINE ( ! Erase to end of Line 
? jDENT = *'v04-000' ! File: SCRELINE.BLI Edit: JBS1003 
= 
5 BEGIN 


i eeeeeeereereeerereereeeeeeeeeeeeeeeteeereereeereneeeereneeenereneeeeeneeeeee 
'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIE 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH H 


ie INCLUSION O E SOF Tw Y OTHE 

ie COPIES. THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO AN 

ie TRANSFERRED. 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
je AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 

| elde ghee ennaupneapnabnenensseenasoeSennesteneneEnieneenseneteebeaanbenteeserer 
i 


@eeneeenenennenenenenennennannne 


"FACILITY: EDT == The DEC Standard Editor 

ABSTRACT: 
This module outputs an erase to end of Line sequence. 

ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 

MODIFIED CY: 

1-001 - Original. DJS 12-Feb-1981. This module was created b 
nay ond pom Big routine corey CAERATO ot from module SCREEN. 


1-005 = Regularize headers. JBS 15-Rar- 
1-005 - Improve the appearance of the Listing. JBS 17-Jun-1983 


Page 1 
GscrELINE.BLInt?” (1) 


ee] 


mH 14 
ied 1eageb~} SBS Phi 3e Te Pe SblSFeRs cep E sacSscretine.euie;™ «28 


EQTSSCREL INE 


1 


RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM’ ; 


FORWARD ROUTINE 
EDTSSSC_ERATOEOL : NOVALUE; 


£oo 


4 1 

3 1 

3 1 

3 1 

3 4 1 

r 5 % 

; 1 

g 95 1 

3 1 

3 97 «1 

; 61 38 1! 

3 $6 1 ! INCLUDE FILES: 

.: @ 64 1! 

3 64 . = 

3 65 5 § 1 

; 66 1 

: 67 : 3. 

: «68 06 1 ! MACROS: 

3 69 eee 1! 

3 70 . ue NONE 

> Bog Bz. 

3 7 064 1 ! EQUATED SYMBOLS: 

3 7 0644 1! 

; 2 0645 1 

3 75 tt | 1 BIND 

: 76 47 1 ERS_L_52 = UPLIT (ZSTRING (XCHAR (ASC_K_ESC), 'K')) 
> (77 8 1 ERS-L-100 = UPLIT (ZSTRING (ZCHAR (ASC_R_ESCS, 'CK'S); 
; me 0649 1 

3 79 0650 1 LITERAL 

:; 80 0651 1 ERS_L_52_LEN = 2 
«81 065¢ 1 ERS-L-100_LEN = 3; 
t 5 bees 1 

, se bees 1 ! OWN STORAGE: 

3 5 0656 1! 

3 a6 0657 1! NONE 

3 : 0658 1! 

; 8 0659 1 ! EXTERNAL REFERENCES: 
; 89 0660 1 | 
;s 0661 1! In the routine 


REQUIRE ‘EDTSRC:EDTREQ’; 
| 
i 
| 
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EDTSSCRELINE EDTSSCRELINE - erase to end of Line 16-Sep-1984 01:32: VAX-11 Bliss-32 V4.0-74 Page 
104-000 EDTSESc ERATOEOL = erase to end of Line 12286871382 9:32:38 DLSKSVMGMASTERSCEDT SRCISCRELINE .BLIe%® (3 
3 3 § } ZSBTTL "EDTSSSC_ERATOEOL = erase to end of Line’ 
; 36 1 GLOBAL ROUTINE EDTSSSC_ERATOEOL ! Erase to end of Line 
: 95 5 ; : NOVALUE = 
: 3$ 667 1 !44 
3 38 3 : } FUNCTIONAL DESCRIPTION: 
: 100 6 1! Output an erase to end of Line sequence. 
3 19) ber9 1! 
ao § Le 1 ! FORMAL PARAMETERS: 
3 \97 wo yf 
s 674 1! NONE 
; 105 ee 
: 106 6 1 ! IMPLICIT INPUTS: 
; 107 0677 1! 
: 108 0678 1! EDTS$G_TI_TYP 
; 109 Bor? 1! 
: 110 80 1 ! IMPLICIT OUTPUTS: 
3; 06111 0681 1! 
3 Vig 0682 1! NONE 
; 11 0683 1! 
3. (1146 pegs 1 ! ROUTINE VALUE: 
s 195 85 1! 
; «(116 0686 1! NONE 
: 117 0687 1! 
; (118 0688 1 ! SIDE EFFECTS: 
3; 119 0689 1! 
; 120 0690 1! NONE 
3: 121 0691 1! 
3 \¢¢ B96 1 !<- 
Pp 0693 1 
: 124 0694 BEGIN 
: 125 0695 
: 126 0696 EXTERNAL ROUTINE 
a Gar 0697 EDTSSFMT_LIT; 
: 128 0698 
; 129 0699 EXTERNAL 
3 ' : ta EDTSSG_TI_TYP; ! Terminal type. 
 } ¢ O70 SELECTONE .EDTS$G_TI_TYP OF 
a 070 SET 
oe 0704 
3 ‘ 5 0706 CTERM_VT52) : 
; 1 109 EDTSSFMT_LIT (ERS_L_52, ERS_L_52_LEN); 
. & 708 END; 
: 139 709 
3 140 710 CTERM_VT100) : 
; 141 711 GIN 
; 142 ie EDTSSFMT_LIT (ERS_L_100, ERS_L_100_LEN); 
: 14 71 END; 
3: 144 714 
3: «145 715 COTHERWISE) : 
: 146 rig EGIN 
: 14 71 
3; 148 0718 END; 
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EDTSSCRELINE DISSCRELINE = erase to end of Line 16-Sep-1984 01:32: VAX=-11 Bliss-32 V4.0-74 Page 4 ED’ 
et ts DT esc RATOEOL = erase to end of Line 1 ~3007 138% 93:32:38 NR ERSUMCMASTERSCEOT Sac SSCRELINE.BLIG4” (3) v0 
5 169 7 TES; 

: 150 0738 ; 

: 151 721 END; ! of routine EDT$$SC_ERATOEOL 


-TITLE EDTSSCRELINE EDTSSCRELINE - erase to end of Lin 


00 48 18 O P.AAA: .ASCII <27>\K\<0><0> ; ; 
3 48 5B 18 dat P.AAB: .ASCII <27>\CK\<0> F . 
ERS At. 3 P.AAA : 
ERS_L_100= P.AAB ° 
-EXTRN EDTSSFMT_LIT, EDT$$G_TI_TYP : 
0000 00000 -ENTRY EDTSS$SC_ERATOEOL, Save nothing 3 0664 ‘ 
50 000000006 99 00 60008 MOVL EDTS$$G_TI_TYP, RO : 0702 : 
01 D1 0000 CMPL RO, #1 ; 0705 : 
ti 12 0000C BNEQ 1$ 3 ° 
2 Dd 0000 PUSHL #2 3; 0707 ° 
ES AF 9F 0001 PUSHAB ERS_L_52 ; . 
OA 11 0001 BRB $ : ‘ 
02 50 01 00015 1$ CMPL =- RO, #2 : 0710 : 
os 12 860} BNEQ 3$ 3 ¢ 
DD OOO1A PUSHL #3 3; 0712 ° 
DD AF 9F O00IC PUSHAB ERS_L_100 ; : 
000000006 00 02 FB OOOTF 3 CALLS #2, EBTSSFMT_LIT F ‘ 
04 00026 3$ RET 3; 0721 : 
; Routine Size: 39 bytes, Routine Base: _EDTSCODE + 0008 


Ww 


) IDENT \V04-000\ 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
1 
072 1 !<BLF/PAGE> 
} 
| 
| 


DISKSVMSMASTER: CEDT.SRCJSCRELINE.BLI; rise 


GIRS EBTBERSM cl" SS0°C8EaN SF ue AERSEHUEA AUSHEUY gD IWRAMHSRZ aa 
: 136 0785 } END ! of module EDTSSCRELINE 

: 13? 726 0 ELUDOM 

; PSECT SUMMARY 

3 Name Bytes Attributes 

;  EDTSCODE 47 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

BPS ety Roe yon > Syahels scccocce Pages Processing 

: File Total ioaded Percent Mapped Time 

; RBSSEBUARELEEDI-SREDEEChE2ido. et aoe 


COMMAND QUALIFIERS 


Size: 39 code + 8 data bytes 
T 00:09.5 


4604 
Lexemes/CPU-Min: 12463 
penery Used: 58 pages 
Compilation Complete 


— 


5 yr CAEL ORE FELD. FE TEAL, APT ERE LED OTRACER ACESS S91. 200 SENG INE SS ISR TECNEL MSRC$:SCRELINE.BLI/UPDATE=(ENH$: SCRE 


————— | 
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